// This procedure exports vertices, edges, faces, bodies as
// separate .txt files.
// Dmitry Ershov, Nicolas Minc Team at IJM, 2017.

PROCEDURE export_lists()
{ 
   	vertListName := sprintf "%s_vertices.txt", datafilename;
   	edgeListName := sprintf "%s_edges.txt", datafilename;
   	faceListName := sprintf "%s_faces.txt", datafilename;
   	bodyListName := sprintf "%s_body.txt", datafilename;

   	print sprintf "\n%s", "Dumping txt files for file:";
	print sprintf "%s\n", datafilename;

	print sprintf "%s", "Dumping Vertices";
	list vertices >>> vertListName; 
	print sprintf "%s\n", "Vertices: done.";
	
	print sprintf "%s", "Dumping Edges";
	list edges >>>  edgeListName;
	print sprintf "%s\n", "Edges: done.";

	print sprintf "%s", "Dumping Faces";
	list faces >>> faceListName;
	print sprintf "%s\n", "Faces: done.";

	for(b_ind := 1; b_ind <= body_count; b_ind ++)
	{
	print sprintf "Dumping Body %d", b_ind;
	bodyListName := sprintf "%s_body_%d.txt", datafilename, b_ind;
	list bodies where id = b_ind >>> bodyListName;
	};

	print sprintf "%s\n", "Bodies: done.";
	
}